home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abk.d64 / norad (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  279 lines
  1. 100 REM   ----> USAGE NOTES <----
  2. 110 REM
  3. 120 REM  ALL CODES ARE FIVE CHARACTERS
  4. 130 REM  FOLLOWED BY A RETURN...ANY
  5. 140 REM  WILL WORK, BUT IT'S VERY IM-
  6. 150 REM  PRESSIVE TO HAVE THEM WRITTEN
  7. 160 REM  ON A CARD OR PIECE OF PAPER
  8. 170 REM  WITH THE UNDERSTANDING THAT
  9. 180 REM  YOU GOT THEM FROM A HACKER
  10. 190 REM  FRIEND WHO GOT THEM FROM AN
  11. 200 REM  UNDERGROUND BBS. (SAME GOES
  12. 210 REM  FOR THE PHONE NUMBER)
  13. 220 REM
  14. 230 REM  WHEN THE VERIFICATION CODE IS
  15. 240 REM  REQUESTED, RANDOM BOOK NAMES
  16. 250 REM  ARE PRINTED...WE PRETEND WE
  17. 260 REM  ONLY HAVE THE CODES FOR 2 OR 3
  18. 270 REM  OF THE BOOKS AND RELUCTANTLY
  19. 280 REM  HANG-UP AND START OVER IF IT'S
  20. 290 REM  NOT ONE OF THE BOOKS WE KNOW.
  21. 300 REM
  22. 310 REM  WHEN COMMAND LEVEL IS REACHED
  23. 320 REM  ANY CHARACTER STRING IS ACCEP-
  24. 330 REM  TED SO YOU CAN USE SOME IMAGI-
  25. 340 REM  NATION (CODE RED, AZTEC, ETC.)
  26. 350 REM  ...COMMAND RESPONSES ARE THREE
  27. 360 REM  RANDOM CRYPTOGRAPHIC FUNCTIONS
  28. 370 REM  TO ENHANCE THE ILLUSION OF
  29. 380 REM  HAVING GAINED ENTRY TO A FOR-
  30. 390 REM  BIDDEN NETWORK.  HOWEVER, SO
  31. 400 REM  YOU CAN EXERCISE SOME CONTROL
  32. 410 REM  OVER WHAT HAPPENS, ANY COMMAND
  33. 420 REM  BEGINNING WITH THE CHARACTERS
  34. 430 REM  ACC, CEN, OR COM (AS IN 'COM-
  35. 440 REM  MAND CENTER REQUEST', 'ACCESS
  36. 450 REM  CENTRAL', OR 'CENTER ENTRY')
  37. 460 REM  WILL RESULT IN AN INVALID COM-
  38. 470 REM  MAND WARNING (ONLY 5 ALLOWED).
  39. 480 REM
  40. 490 REM  A COMMAND BEGINNING WITH THE
  41. 500 REM  WORD LANGLEY (E.G. 'LANGLEY
  42. 510 REM  ACCESS REQUESTED') WILL GET
  43. 520 REM  YOU TO LANGLEY COMMAND CENTER
  44. 530 REM  WHERE THE EXCITEMENT BEGINS.
  45. 540 REM
  46. 550 REM  WITH THE RIGHT PRESENTATION,
  47. 560 REM  THIS IS A MOST EFFECTIVE
  48. 570 REM  PROGRAM.  DON'T FORGET TO SET
  49. 580 REM  UP THE PHONE AND MODEM BEFORE
  50. 590 REM  RUNNING (COVER THE MODEM LIGHT
  51. 600 REM  IF YOUR AUDIENCE KNOWS IT'S
  52. 610 REM  SUPPOSED TO COME ON).
  53. 620 REM
  54. 630 REM  WE'VE PUT ON SOME DEMONSTRA-
  55. 640 REM  TIONS WITH REACTIONS RANGING
  56. 650 REM  FROM EXCITEMENT TO HYSTERIA.
  57. 660 REM
  58. 670 REM  HAVE FUN!
  59. 680 REM
  60. 690 REM                 DAN CHERNOFF
  61. 700 REM
  62. 710 REM (MODS & NARRATIVE BY 'WRENCH')
  63. 720 REM
  64. 730 Z=300:ZZ=2000
  65. 740 FORX=1TO5:READX$:NEXTX
  66. 750 DIMPN$(15)
  67. 760 FORX=1TO14
  68. 770 READX$:PN$(X)=X$
  69. 780 NEXTX
  70. 790 POKE53280,5:POKE53281,0:PRINT"[147]":POKE53272,21
  71. 800 PRINTCHR$(12)
  72. 810 PRINT"  DIALING . . . . ";
  73. 820 FORX=1TO14
  74. 830 PRINTPN$(X);
  75. 840 FORY=1TO600:NEXTY
  76. 850 NEXTX
  77. 860 FORX=1TO1000:NEXTX
  78. 870 PRINT:PRINT"  WAITING FOR CONNECTION...."
  79. 875 FOR X=1TO 5500:NEXTX:POKE56579,16
  80. 876 FOR X=1TO 500:NEXT X
  81. 880 PRINTCHR$(12)
  82. 890 DIMA$(100)
  83. 900 PRINT""
  84. 910 M$=" NORAD SYSTEM COMCON4 . . . . CONNECTED":GOSUB2690:GOSUB2670
  85. 920 PRINT:PRINT""
  86. 930 M$="AUTHORITY CODE-->":GOSUB2690:FORX=1TO6:GOSUB1450:NEXT
  87. 940 ZZ=0:GOSUB1480
  88. 950 PRINT"":M$="        NORAD PRIME ACCESS":GOSUB2690
  89. 960 PRINT
  90. 970 M$="        [163][163][163][163][163] [163][163][163][163][163] [163][163][163][163][163][163]":GOSUB2690
  91. 980 PRINT:PRINT
  92. 990 PRINT:M$="            WARNING!":GOSUB2690
  93. 1000 PRINT:M$="            [163][163][163][163][163][163][163][163]":GOSUB2690
  94. 1010 FORX=1TO3:GOSUB2660:NEXT
  95. 1020 PRINT:PRINT:M$="INCOMING CALLERS SUBJECT TO UNITED":GOSUB2690
  96. 1030 PRINT
  97. 1040 M$="STATES MILITARY TRIBUNAL JUSTICE SYSTEM.":GOSUB2690
  98. 1050 PRINT
  99. 1060 M$="FOREIGN ACCESS STRICTLY PROHIBITED.":GOSUB2690:PRINT:PRINT
  100. 1070 M$="ACCESS IS ON A NEED TO KNOW, EYES-ONLY":GOSUB2690
  101. 1080 PRINT
  102. 1090 M$="BASIS FOR ALL BUT COMMAND AUTHORITY.":GOSUB2690:PRINT:PRINT
  103. 1100 M$="AT THIS POINT, IMPROPER IDENTIFICATION":GOSUB2690
  104. 1110 PRINT
  105. 1120 M$="WILL RESULT IN AUTOMATIC SURVEILLANCE":GOSUB2690:PRINT
  106. 1130 M$="OF CONNECTING TELEPHONE LINE AND":GOSUB2690:PRINT
  107. 1140 M$="INFORMATION SO GATHERED WILL BE PROVIDED":GOSUB2690
  108. 1150 M$="TO THE PROPER DOMESTIC POLICE AND":GOSUB2690:PRINT
  109. 1160 M$="GOVERNMENTAL AGENCIES...................":GOSUB2690
  110. 1170 FORX=1TO150:NEXTX
  111. 1180 PRINT"":M$="       NORAD PRIME ACCESS":GOSUB2690
  112. 1190 PRINT:M$="       [163][163][163][163][163][160][163][163][163][163][163][160][163][163][163][163][163][163]":GOSUB2690
  113. 1200 PRINT:PRINT
  114. 1210 M$="PLEASE ENTER YOUR EYES-ONLY CODE->":GOSUB2690:FORX=1TO6:GOSUB1450:NEXTX
  115. 1220 PRINT:PRINT
  116. 1230 M$="CODE ENTERED IMPLIES COMMAND AUTHORITY!":GOSUB2690
  117. 1240 PRINT"":M$="ENTER YOUR VERIFICATION AS GIVEN IN....":GOSUB2690
  118. 1250 FORX=1TO900:NEXTX:PRINT
  119. 1260 XD=INT(RND(0)*5)+1:ONXDGOSUB2800,2810,2820,2830,2840
  120. 1270 PRINT:M$="ENTER -->":GOSUB2690:FORX=1TO6:GOSUB1450:NEXT
  121. 1280 GOSUB1480
  122. 1290 PRINT"":M$="  NORAD COMMAND LEVEL":GOSUB2690:PRINT
  123. 1300 M$="  [163][163][163][163][163][160][163][163][163][163][163][163][163][160][163][163][163][163][163]":GOSUB2690:PRINT
  124. 1310 PRINT
  125. 1320 M$="SIR, COMCON4 REPORTS UPTIME VERIFIED FOR":GOSUB2690
  126. 1330 M$="NEXT ONE HOUR.":GOSUB2690:PRINT
  127. 1340 PRINT:M$="NORAD COMMAND CENTER CAN BE REACHED AT":GOSUB2690:PRINT
  128. 1350 M$="ANY TIME WITH PASSWORDS AS PROVIDED IN":GOSUB2690:PRINT
  129. 1360 M$="THE LANGLEY PROTOCOLS.":GOSUB2690:PRINT
  130. 1370 PRINT:M$="ENTERING DIRECT COMMAND MODE....":GOSUB2690:PRINT
  131. 1380 GOSUB1490
  132. 1390 PRINTCHR$(12)
  133. 1400 REMM$="  NORAD COMMAND LEVEL":GOSUB5000:PRINT
  134. 1410 REMM$="  [163][163][163][163][163][160][163][163][163][163][163][163][163][160][163][163][163][163][163]":GOSUB5000:PRINT
  135. 1420 REMPRINT"        "  "
  136. 1430 [137]1380
  137. 1440 [128]
  138. 1450 [161]A$:[139]A$[178]""[167]1450
  139. 1460 [153]A$;:A$[178]""
  140. 1470 [142]
  141. 1480 [129]X[178]1[164]1000[170]ZZ:[130]X:[153]:[142]
  142. 1490 [153]:[153]:[133]"===>";A$
  143. 1500 [139][200](A$,7)[178]"LANGLEY"[167][141]1610
  144. 1510 [139][200](A$,3)[178]"COM"[167][141]2160:[142]
  145. 1520 [139][200](A$,3)[178]"CEN"[167][141]2160:[142]
  146. 1530 [139][200](A$,3)[178]"ACC"[167][141]2160:[142]
  147. 1540 [153]:M$[178]"SEARCHING FOR SUBPROGRAM....":[141]2690:[153]:[129]X[178]1[164]2000:[130]
  148. 1550 M$[178]" ....RUNNING " :[141]2690:M$[178]A$:[141]2690
  149. 1560 M$[178]" ON CPU":[141]2690:[153][181]([187](0)[172]20)
  150. 1570 A[178][181]([187](0)[172]3[170]1)
  151. 1580 [129]J[178]1[164]1000:[130]
  152. 1590 [145]A[141]1780,2030,2390
  153. 1600 [142]
  154. 1610 [141]1480
  155. 1620 [153][199](12):[129]X[178]1[164]4:[153];:[141]2670:[153];:[130]X:[153]"COMCON4....REQUEST RECORDED"
  156. 1630 [153]"PROCESSING. STANDBY"
  157. 1640 [129]X[178]1[164]1000:[130]X:[141]1480
  158. 1650 M$[178]"  NORAD CENTRAL COMMAND":[141]2690:[153]
  159. 1660 M$[178]"  TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(":[141]2690:[153]
  160. 1670 [153]:M$[178]"YOU HAVE REACHED LANGLEY COMMAND CENTER.":[141]2690:[153]
  161. 1680 M$[178]"PRIMARY INTELLIGENCE VERIFICATION CODE, PLEASE==>":[141]2690
  162. 1690 [129]X[178]1[164]6:[141]1450:[130]X
  163. 1700 [153]
  164. 1710 [141]2670:[153]:M$[178]"EXECUTIVE POWER CLAIM ENTERED . . .":[141]2690
  165. 1720 [153]:M$[178]"AIR FORCE ONE FALLBACK ALERT!":[141]2690
  166. 1730 [153]:[153]:M$[178]"MR. PRESIDENT, PLEASE ENTER YOUR TOTAL":[141]2690:[153]
  167. 1740 M$[178]"COMMAND AUTHORIZATION ==>":[141]2690
  168. 1750 [129]X[178]1[164]6:[141]1450:[130]
  169. 1760 [153]
  170. 1770 [137]2470
  171. 1780 [143]    FIRST FAKE OUTPUT
  172. 1790 [141]1900
  173. 1800 [141]1480
  174. 1810 [141]2750
  175. 1820 [129]X[178]1[164][181]([187](0)[172]5)[170]1
  176. 1830 [129]Y[178]1[164]20
  177. 1840 [153][181]([187](0)[172]9[170]1);" ";
  178. 1850 [130]Y:[130]X
  179. 1860 [153]:[153]:
  180. 1870 M$[178]"PRESS RETURN WHEN DECODED ==>":[141]2690:[133]C$
  181. 1880 [142]
  182. 1890 [140]
  183. 1900 [143]  COMMAND SUBROUTINE
  184. 1910 [140]
  185. 1920 [153][199](12)
  186. 1930 M$[178]"  NORAD COMMAND LEVEL":[141]2690:[153]
  187. 1940 M$[178]"  TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(TAB(TAB(CLOSETAB(TAB(TAB(TAB(TAB(":[141]2690:[153]
  188. 1950 [153]:[129]X[178]1[164]5:[135]B$(X):[130]X
  189. 1960 [131]"GREEN","GOLD","CRIMSON","VIOLET","OLIVE"
  190. 1970 [131]1,-,2,0,3,-,4,3,2,-,8,7,9,1
  191. 1980 M$[178]"USING BOOK":[141]2690:[153][181]([187](0)[172]99[170]1);
  192. 1990 M$[178]B$([181]([187](0)[172]5)):[141]2690
  193. 2000 [153]:[153]:[129]J[178]1[164]1000:[130]
  194. 2010 [140]:[142]
  195. 2020 [142]
  196. 2030 [143]    SECOND FAKE OUTPUT
  197. 2040 [141]1900
  198. 2050 [153][199](12)
  199. 2060 [141]2750
  200. 2070 [129]X[178]1[164][181]([187](0)[172]100[170]1)
  201. 2080 [129]Y[178]1[164][181]([187](0)[172]10[170]1)
  202. 2090 Z[178][181]([187](0)[172]26[170]65)
  203. 2100 [153][199](Z);
  204. 2110 [130]Y
  205. 2120 [153]" ";
  206. 2130 [130]X
  207. 2140 [153]:[153]:M$[178]"PRESS RETURN WHEN DECODED==>":[141]2690:[133]A$
  208. 2150 [142]
  209. 2160 [143]  THIRD FAKE OUTPUT
  210. 2170 CK[178]CK[170]1
  211. 2180 [141]1900
  212. 2190 [153][199](12)
  213. 2200 [153]:M$[178]"WARNING!":[141]2690:[153]
  214. 2210 M$[178]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[141]2690:[153]
  215. 2220 [153]:[129]X[178]1[164]4:[153];:[141]2670:[153];:[130]:[153]"
  216. 2230 M$="SIR, YOUR PROGRAM, ":GOSUB2690:M$=A$:GOSUB2690:PRINT:PRINT
  217. 2240 M$="IS NOT IN CPU CATALOG":GOSUB2690:PRINT:PRINT
  218. 2250 M$="PLEASE RE-ENTER YOUR COMMAND AUTHORITY":GOSUB2690:PRINT
  219. 2260 M$="CODE==>":GOSUB2690:FORX=1TO6:GOSUB1450:NEXT
  220. 2270 IFCK>4THENGOTO2470
  221. 2280 M$="PROCESS A":GOSUB2690:FORX=1TO900:NEXT
  222. 2290 M$="..COMPARING..":GOSUB2690
  223. 2300 FORX=1TO1300:NEXT:M$="ACCEPTED!":GOSUB2690:PRINT
  224. 2310 FORX=1TO1000:NEXTX
  225. 2320 PRINT:M$="SIR, PLEASE CHECK YOUR PROGRAM CODES.":GOSUB2690:PRINT
  226. 2330 M$="COMCON4 IS PROGRAMMED TO TERMINATE CALL":GOSUB2690:PRINT
  227. 2340 M$="ON FIFTH ILLEGAL PROGRAM CODE FOR":GOSUB2690:PRINT
  228. 2350 M$="REASONS OF NATIONAL SECURITY UNDER":GOSUB2690:PRINT
  229. 2360 M$="EXECUTIVE ORDER STAR4.":GOSUB2690:PRINT
  230. 2370 FORX=1TO500:NEXT
  231. 2380 RETURN
  232. 2390 REM    FOURTH FAKE OUTPUT
  233. 2400 GOSUB1900
  234. 2410 PRINTCHR$(12)
  235. 2420 PRINT:PRINT
  236. 2430 M$="PAGE":GOSUB2690:PRINTINT(RND(0)*1000);
  237. 2440 M$="IN CODE BOOK":GOSUB2690:M$=B$:GOSUB2690:M$=" IS":GOSUB2690:PRINT
  238. 2450 M$="STILL OPERATIVE PER PRIMARY DIRECTIVES.":GOSUB2690:PRINT
  239. 2460 FORX=1TO2000:NEXTX:RETURN
  240. 2470 REM  DESTRUCT!
  241. 2480 PRINTCHR$(12)
  242. 2490 M$="              NORAD":GOSUB2690:PRINT
  243. 2500 PRINT:M$="         **AUTO-LOGOFF**":GOSUB2690
  244. 2510 Z=0:PRINT
  245. 2520 PRINT:PRINT"A";:GOSUB2670:PRINT"U";:GOSUB2670
  246. 2530 PRINT"T";:GOSUB2670:PRINT"H";:GOSUB2670
  247. 2540 PRINT"O";:GOSUB2670:PRINT"R";:GOSUB2670
  248. 2550 PRINT;:GOSUB2670:PRINT"I";:GOSUB2670:PRINT"Z";:GOSUB2670:PRINT"A";:GOSUB2670:PRINT"T";:GOSUB2670:PRINT"I";:GOSUB2670:PRINT"O";:GOSUB2670:PRINT"N";:GOSUB2670:PRINT" ";
  249. 2560 PRINT"F";:GOSUB2670:PRINT"A";:GOSUB2670:PRINT"I";:GOSUB2670:PRINT"L";:GOSUB2670:PRINT"U";:GOSUB2670:PRINT"R";:GOSUB2670:PRINT"E";:GOSUB2670:PRINT"!!!"
  250. 2570 PRINT:PRINT:M$="CONNECTION TERMINATED WITH PREJUDICE.":GOSUB2690
  251. 2580 PRINT:M$="JOINT CHIEFS OF STAFF NOTIFIED.":GOSUB2690
  252. 2590 PRINT:M$="LOCAL POLICE INFORMED OF CIVILIAN":GOSUB2690:PRINT
  253. 2600 M$="OVERRIDE ATTEMPT.":GOSUB2690:PRINT
  254. 2610 PRINT
  255. 2620 PRINT:PRINT:M$="COMCON4.......":GOSUB2690
  256. 2630 FORJ=1TO500:NEXT:M$="DISCONNECTED.":GOSUB2690:PRINT:PRINT
  257. 2640 PRINT"HJH[3].  MNUIUYKLKJ+''3"
  258. 2650 FORX=1TO50000:NEXTX:END
  259. 2660 GOTO2680
  260. 2670 FORA=1TO10:NEXT:GOTO2680
  261. 2680 RETURN
  262. 2690 REM SLOW PRINT SUBROUTINE
  263. 2700 FORX=1TOLEN(M$)
  264. 2705 FOR KZ=1 TO 30:NEXT KZ
  265. 2710 PRINTMID$(M$,X,1);
  266. 2720 FORYA=1TO10:NEXTYA
  267. 2730 NEXTX
  268. 2740 RETURN
  269. 2750 REM HEADING SUBROUTINE
  270. 2760 M$="  NORAD COMMAND LEVEL":GOSUB2690:PRINT
  271. 2770 M$="  [163][163][163][163][163][160][163][163][163][163][163][163][163][160][163][163][163][163][163]":GOSUB2690:PRINT
  272. 2780 PRINT"":M$="COMCON4 RUNNING.....":GOSUB2690:M$=A$:GOSUB2690:PRINT:PRINT
  273. 2790 RETURN
  274. 2800 M$=">>>>>>BOOK 12RY-OLIVE<<<<<<":GOSUB2690:RETURN
  275. 2810 M$=">>>>>>BOOK 42XF-GREEN<<<<<<":GOSUB2690:RETURN
  276. 2820 M$=">>>>>>BOOK 13HJ-ORANGE<<<<<<":GOSUB2690:RETURN
  277. 2830 M$=">>>>>>BOOK 11DD-YELLOW<<<<<<":GOSUB2690:RETURN
  278. 2840 M$=">>>>>>BOOK 47XC-PURPLE<<<<<<":GOSUB2690:RETURN
  279.